home *** CD-ROM | disk | FTP | other *** search
/ The Amiga Classic Collection / The Amiga Classic Collection - Disc 1.iso / Education / EDD124a-Kidstop.DMS / EDD124a-Kidstop.adf / InstallKidstop < prev    next >
Text File  |  1997-10-30  |  5KB  |  102 lines
  1. (procedure P_copyparts
  2.  (
  3.   (askdisk (prompt #MSG_INSERTDISK1) (help @askdisk-help) (dest "Kids1") (assigns))
  4.   (copyfiles (source "Kids1:") (dest @default-dest) (pattern "Kidstop.lha?") (files) (optional fail))
  5.   (complete 8)
  6.   (askdisk (prompt #MSG_INSERTDISK2) (help @askdisk-help) (dest "Kids2") (assigns))
  7.   (copyfiles (source "Kids2:") (dest @default-dest) (pattern "Kidstop.lha?") (files) (optional fail))
  8.   (complete 14)
  9.   (askdisk (prompt #MSG_INSERTDISK3) (help @askdisk-help) (dest "Kids3") (assigns))
  10.   (copyfiles (source "Kids3:") (dest @default-dest) (pattern "Kidstop.lha?") (files) (optional fail))
  11.   (complete 20)
  12.   (askdisk (prompt #MSG_INSERTDISK4) (help @askdisk-help) (dest "Kids4") (assigns))
  13.   (copyfiles (source "Kids4:") (dest @default-dest) (pattern "Kidstop.lha?") (files) (optional fail))
  14.   (complete 26)
  15.   (askdisk (prompt #MSG_INSERTDISK5) (help @askdisk-help) (dest "Kids5") (assigns))
  16.   (copyfiles (source "Kids5:") (dest @default-dest) (pattern "Kidstop.lha?") (files) (optional fail))
  17.   (complete 50)
  18.  
  19.  )
  20. )
  21. (procedure P_joinparts
  22.  (
  23.   (run ("join \"%s\" \"%s\" \"%s\" \"%s\" \"%s\" as \"%s\""
  24.    (tackon @default-dest "Kidstop.lha0")
  25.    (tackon @default-dest "Kidstop.lha1")
  26.    (tackon @default-dest "Kidstop.lha2")
  27.    (tackon @default-dest "Kidstop.lha3")
  28.    (tackon @default-dest "Kidstop.lha4")
  29.    (tackon @default-dest "archive.lha")))
  30.   (delete (tackon @default-dest "Kidstop.lha0"))
  31.   (delete (tackon @default-dest "Kidstop.lha1"))
  32.   (delete (tackon @default-dest "Kidstop.lha2"))
  33.   (delete (tackon @default-dest "Kidstop.lha3"))
  34.   (delete (tackon @default-dest "Kidstop.lha4"))
  35.  )
  36. )
  37. (procedure P_unpack
  38.  (
  39.   (run ("Kids5:lhex >CON: -fw= \"%s\" x \"%s\"" @default-dest (tackon @default-dest "archive.lha")))
  40.   (delete (tackon @default-dest "archive.lha"))
  41.  )
  42. )
  43. (set @app-name "Kidstop")
  44. (set @pretend 0)
  45. (if (= @language "deutsch")
  46.  (
  47.   (set #MSG_INSERTDISK1 "Bitte legen Sie die 1.Diskette in ein beliebiges Laufwerk ein.")
  48.   (set #MSG_INSERTDISK2 "Bitte legen Sie die 2.Diskette in ein beliebiges Laufwerk ein.")
  49.   (set #MSG_INSERTDISK3 "Bitte legen Sie die 3.Diskette in ein beliebiges Laufwerk ein.")
  50.   (set #MSG_INSERTDISK4 "Bitte legen Sie die 4.Diskette in ein beliebiges Laufwerk ein.")
  51.   (set #MSG_INSERTDISK5 "Bitte legen Sie die 5.Diskette in ein beliebiges Laufwerk ein.")
  52.   (set #MSG_INSERTDISK6 "Bitte legen Sie die 6.Diskette in ein beliebiges Laufwerk ein.")
  53.   (set #MSG_INSERTDISK7 "Bitte legen Sie die 7.Diskette in ein beliebiges Laufwerk ein.")
  54.   (set #MSG_INSERTDISK8 "Bitte legen Sie die 8.Diskette in ein beliebiges Laufwerk ein.")
  55.   (welcome "Willkommen zur Installation von Flyin\'High.")
  56.   (set #default-dest (askdir (prompt "Bitte geben Sie das Verzeichnis an, in das Flyin\'High installiert werden soll. Es wird dort automatisch eine Schublade mit dem Namen \"Flyin\'High\" erzeugt.") (help @askdir-help) (default @default-dest)))
  57.   (if (< (getdiskspace #default-dest) 8000000)
  58.    (exit ("Sie benötigen mindestens 8 MByte freien Speicherplatz auf dem Datenträger auf dem Flyin\'High installiert werden soll. Die Installation kann in \"%s\" nicht durchgeführt werden." #default-dest) (quiet))
  59.    (
  60.     (set @default-dest (tackon #default-dest "Kidstop"))
  61.     (makedir @default-dest (infos))
  62.     (complete 2)
  63.     (run "run >nil: Flyin´High_Disk1:Smily")
  64.     (P_copyparts)
  65.     (working "Füge Archiv zusammen.")
  66.     (P_joinparts)
  67.     (complete 52)
  68.     (working "Entpacke Archiv. Dieser Vorgang kann lange Zeit in Anspruch nehmen. Bitte haben Sie Geduld.")
  69.     (P_unpack)
  70.     (complete 100)
  71.     (exit ("Die Installation ist abgeschlossen. Alle Dateien befinden sich in \"%s\".\n\nDas P.U.R.E.-Team wünscht Ihnen viel Spaß mit Flyin\'High!" @default-dest) (quiet))
  72.    )
  73.   )
  74.  )
  75.  (
  76.   (set #MSG_INSERTDISK1 "Please insert 1st disk in any drive.")
  77.   (set #MSG_INSERTDISK2 "Please insert 2nd disk in any drive.")
  78.   (set #MSG_INSERTDISK3 "Please insert 3rd disk in any drive.")
  79.   (set #MSG_INSERTDISK4 "Please insert 4th disk in any drive.")
  80.   (set #MSG_INSERTDISK5 "Please insert 5th disk in any drive.")
  81.   (welcome "Welcome to the installation of Kidstop.")
  82.   (set #default-dest (askdir (prompt "Please select the directory, where Kidstop should be installed. A drawer named \Kidstop\" will be created.") (help @askdir-help) (default @default-dest)))
  83.   (if (< (getdiskspace #default-dest) 8000000)
  84.    (exit ("You need at least 8 MByte of free space on the device where Kidstop should be installed. The installation on \"%s\" cannot be performed." #default-dest) (quiet))
  85.    (
  86.     (set @default-dest (tackon #default-dest "Kidstop"))
  87.     (makedir @default-dest (infos))
  88.     (complete 2)
  89.     (P_copyparts)
  90.     (working "Joining archive together.")
  91.     (P_joinparts)
  92.     (complete 52)
  93.     (working "Unpacking archive. This can take a long time. Please be patient.")
  94.     (P_unpack)
  95.     (complete 100)
  96.     (exit ("The installation is now complete. All files are located in \"%s\".\n\nClassic PD 0161 723 1638" @default-dest) (quiet))
  97.    )
  98.   )
  99.  )
  100. )
  101.  
  102.